home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 31 / PC Gamer IT CD 31 1-2.iso / EARTHL / CLARISHP / _SETUP.1 / HOMEPAGE.exe / 1009 / 167 < prev    next >
Encoding:
Text File  |  1997-02-20  |  6.2 KB  |  196 lines
  1. // -----
  2. // VDL167.txt
  3. // Copyright 1996 Claris
  4. // -----
  5. //About Box and Splash Screen
  6.  
  7.  
  8. #ifdef TryMe
  9. #define LITE_VERSION 1
  10. #endif
  11.  
  12. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  13. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  14. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  15.  
  16. //This section contains all localizable string constants for this VDL program. Be sure to 
  17. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  18. //You may also flatten multiline constants into a single line, if you prefer
  19.  
  20.  
  21. #define kLit1 "Registered To:"
  22. #define kLit2 "&Info"
  23. #define kLit3 "&Credits"
  24. #define kLit4 "&About"
  25. #define kLit5 "&OK"
  26. #define kLit6 "&How To Upgrade"
  27.  
  28. //Localized Fonts
  29.  
  30. #if Platform_Mac
  31. #define AboutFont Font = {Geneva, 9, {Plain}}
  32. #else
  33. #define AboutFont Font = {Arial, 8, {Plain}}
  34. #endif
  35.  
  36. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  37. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  38. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  39.  
  40.  
  41.  
  42. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  43. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  44. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  45.  
  46. //This section contains integer constants that are used to format this VDL program.
  47. //These are localizable - they only need to be changed if the localized strings 
  48. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  49.  
  50. //Height and width of the views in the middle of the dialog that display the info text,
  51. //the credits, or the about text.
  52. #define kInfoViewWidth     200
  53. #define kInfoViewHeight 165
  54.  
  55. //Space between the left edge of the window and the left edge of the info views.
  56. #define kInfoViewLeftMargin 92
  57.  
  58. //Margin between the info view and the crane picture, on the right
  59. #define kInfoViewRightMargin 0
  60.  
  61. //Widths of all the buttons, when visible. Note that the width of the dialog 
  62. //is computed without checking the button widths. This is so they 
  63. //automatically right-juetify themselves. If you need to make the buttons wider than 
  64. //the dialog is allowing for, increase the kDialogMinWidth constant to add padding 
  65. //to the dialog. Alternately, you can increase the kInfoViewRightMargin constant above
  66. #define kButtonWidth 60
  67.  
  68. //See comment above. Minimum width of the dialog. Typically not used.
  69. #define kDialogMinWidth 0
  70.  
  71. //Margin to the left of the "Home Page" logotype
  72. #define kHomePagePictLeftMargin 88
  73.  
  74. //Space above the top of the crane graphic.
  75. #if !LITE_VERSION
  76. #define kGraphicLeftMargin 0
  77. #define kGraphicTopMargin  42
  78. #else
  79. #define kGraphicLeftMargin 20
  80. #define kGraphicTopMargin  80
  81. #endif
  82.  
  83. #define kButtonSpacing 10
  84.  
  85. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  86. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  87. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  88.  
  89. //No further localizable data past this point
  90.  
  91. /************************** END LOCALIZABLE DATA ***************************************************/
  92. /************************** END LOCALIZABLE DATA ***************************************************/
  93. /************************** END LOCALIZABLE DATA ***************************************************/
  94.  
  95. #define SplashColor White
  96.  
  97. #define ccSplashInfoCommand        3600
  98. #define ccSplashAboutCommand        3601
  99. #define ccSplashCreditsCommand    3602
  100. #define ccUpgradeInfo            3603
  101. #define ccOK                           1071  // from CommandCode.h
  102.  
  103. Define(InfoViews)
  104.     Switch(aboutMode, Height = kInfoViewHeight, Width = kInfoViewWidth, BackColor = SplashColor)
  105.         {
  106.         case 0:  //Info
  107.             VList(Width = UseParent)
  108.                 {
  109.                 #if !LITE_VERSION
  110.                 StaticText(kLit1,Width = UseParent, AboutFont);
  111.                 StaticText(user_name,Width = UseParent, AboutFont);
  112.                 StaticText(user_company, Width = UseParent, AboutFont);
  113.                 StaticText(user_ID,  Width = UseParent, AboutFont);
  114.                 #endif
  115.                 
  116.                 StaticText(infoText,  Width = UseParent, AboutFont);
  117.                 }
  118.         case 1: //about
  119.             StaticText(aboutText, Height = UseParent, Width = UseParent, AboutFont);
  120.             
  121.         case 2: //credits
  122.             GenericView("CreditsView");
  123.         
  124.         default:
  125.             Spacer(Height = 0, Width = 0);
  126.         } //Switch
  127.  
  128.  
  129. Margin(0, 0, 10, 10, BackColor = SplashColor)
  130.     VList()
  131.         {
  132.         Spacer(Height = 0, Width = kDialogMinWidth);
  133.         
  134.         
  135.         Margin(3,3,20,0)
  136.         PICT(15000, DontMap);
  137.         
  138.         HList()
  139.             {
  140.             VList()
  141.                 {
  142.                 Margin(kHomePagePictLeftMargin, 5, 0, 0)
  143.                 #if !LITE_VERSION
  144.                 PICT(15001, DontMap);
  145.                 #else
  146.                 PICT(15011, DontMap);
  147.                 #endif
  148.                 
  149.                 Margin(kInfoViewLeftMargin, 5 , 0, 0)
  150.                     Call(InfoViews);
  151.                 }
  152.             
  153.             Margin(kGraphicLeftMargin, kGraphicTopMargin, 0, 0)
  154.             #if !LITE_VERSION
  155.             PICT(15002, DontMap);
  156.             #else
  157.             PICT(15012, DontMap);
  158.             #endif
  159.             }
  160.             
  161.         Switch(showButtons)
  162.             {
  163.             case 1:
  164.                 Spacer(Height = 5, Width = 0);    
  165.             default: 
  166.                 Spacer(Height = 0, Width = 0);
  167.             }
  168.             
  169.         
  170.         Switch (showButtons, Width = UseParent)
  171.             {
  172.             case 1: 
  173.                 HList(Width = UseParent)
  174.                     {
  175.                     Spacer(Height = 0, Width = UseParent);
  176.                     
  177.                     #if LITE_VERSION
  178.                     PushButton( kLit6, ccUpgradeInfo, "None");
  179.                     Spacer(Height = 0, Width = kButtonSpacing);
  180.                     #endif
  181.                     PushButton( kLit2, ccSplashInfoCommand, "None", Width = kButtonWidth);
  182.                     Spacer(Height = 0, Width = kButtonSpacing);
  183.                     PushButton( kLit3, ccSplashCreditsCommand, "None", Width = kButtonWidth);
  184.                     Spacer(Height = 0, Width = kButtonSpacing);
  185.                     PushButton( kLit4, ccSplashAboutCommand, "None", Width = kButtonWidth);
  186.                     Spacer(Height = 0, Width = kButtonSpacing);
  187.                     PushButton( kLit5, ccOK, "None", Width = kButtonWidth);
  188.                     }
  189.                     
  190.             default:
  191.                     HelpView(AboutFont);
  192.             }
  193.  
  194.         } //Main List
  195.  
  196.